home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / disk / Backup / MRBackup / Rexx / poptofront.mrbk < prev    next >
Text File  |  1994-10-04  |  681b  |  40 lines
  1. /* poptofront.mrbk */
  2. /* This simple program runs tests MRBackup's 'poptofront' command. */
  3.  
  4. signal on ERROR
  5. signal on BREAK_C
  6.  
  7.  
  8. options results
  9.  
  10. if ~(Show('P', 'MRBackup_#1')) then do
  11.     say "You must run MRBackup first. With a little work, you could"
  12.     say "get this ARexx script to do it for you."
  13.     exit 1
  14. end
  15.  
  16. address "MRBackup_#1"
  17.  
  18.  
  19. 'poptofront'
  20.  
  21. exit 0
  22.  
  23.  
  24. /*------------------------------------------------------------------*/
  25.  
  26. break_c:
  27.  
  28. say "*** Control-C recieved.  Stopped by user. ***"
  29. exit 5
  30.  
  31. /*------------------------------------------------------------------*/
  32.  
  33. error:
  34.  
  35. say "Error"
  36. exit 6
  37.  
  38. /*------------------------------------------------------------------*/
  39.  
  40.